home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / qm3inst.arc / HOST.ARC / U.HST < prev   
Text File  |  1987-04-16  |  771b  |  40 lines
  1.  
  2. top3_:
  3.    Writeln " "
  4.    Writeln " "
  5.    Write "Enter File Name to Upload or [Q] to exit ? "
  6.    getr 6 12
  7.    if "$6" "Q" Re_Menu
  8.    Exist $6 YUpload_
  9.  
  10. Protocol_:
  11.    Writeln "Available protocols: [X]modem  [C]RC Xmodem [I]modem"
  12.    Write   "                     [Y]modem  [G]-Ymodem   [Q]uit  : "
  13.    getr 7 1
  14.    if "$7" "X" do_it
  15.    if "$7" "C" do_it
  16.    if "$7" "I" do_it
  17.    if "$7" "Y" do_it
  18.    if "$7" "G" do_it
  19.    if "$7" "Q" re_menu
  20.    writeln " "
  21.    writeln "Enter one of the following protocols."
  22.    Goto protocol_
  23.  
  24. Do_It:
  25.    Writeln "File [$6]"
  26.    Writeln "Ready to receive.  Press [Ctrl-X] to Abort."
  27.    Download $6 $7
  28.    Return
  29.  
  30. YUpload_:
  31.    Writeln "File already exists, try again.."
  32.    Goto Top3_
  33.  
  34.  
  35. Re_Menu:
  36.    Return
  37.  
  38.  
  39.  
  40.